home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
game
/
map_quiz
/
b_end.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
1KB
|
28 lines
1000 ' ******************************************************************
1010 ' * *
1020 ' * :::::::::::: B_END.BAS :::::::::::::: *
1030 ' * Programmed By T.K.Mosaku *
1040 ' * ~~~~~~~~~~~~~~~~~~~~~~~~ *
1050 ' ******************************************************************
1060 '
1070 '** タイトル表示 **
1080 '
1090 SCREEN@ 0:CLS:XO=0:MOUSE 5
1100 LOCATE 28,11:COLOR 7:PRINT" Good Bye!"
1110 LOCATE 21,22:PRINT"Programmed by T.K.Mosaku Hhorai Hukusima"
1120 FOR OP=1 TO 60
1130 XO=XO+2
1140 LINE (67+XO,62+XO)-(571-XO,374-XO),PSET,5,B
1150 NEXT OP
1160 '
1170 WAIT 100
1180 FOR TT=1 TO 7
1190 LOCATE 28,11:COLOR 5:PRINT" Good Bye!"'
1200 LOCATE 28,20:COLOR 6:PRINT" 終わります。 Good Bye!"
1205 WAIT 50
1210 LOCATE 28,11:COLOR 3:PRINT" Good Bye!"
1220 LOCATE 28,20:COLOR 2:PRINT" 終わります。 Good Bye!"
1225 WAIT 30
1226 NEXT
1240 SYSTEM